10 PRINTCHR$(147)
20 DIM A$(255)
30 INPUT "FILENAME[160]";NF$
40 NA$="==="+NF$+"==="
50 NF$="0:"+ NF$ +",S,R"
60 OPEN9,8,9,NF$
70 INPUT#9,A$(C)
80 PRINT A$(C)
90 C=C+1
100 IF ST=0 THEN 70
110 CLOSE9
120 OPEN4,4
130 PRINT#4,NA$
140 PRINT#4
150 FOR X=0 TO C-1
160 PRINT#4,A$(X)
170 NEXT
180 PRINT#4
190 CLOSE4